home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Data 2002 May / CD Rom Data Mayıs 2002.iso / Freeware / Blitz Basic / data1.cab / Support / help / beginners / tutorial / deepend / 1 - quick example uncommented.bb < prev    next >
Encoding:
Text File  |  2002-04-10  |  508 b   |  21 lines
  1.  
  2. ; ---------------------------------------------------------------------
  3. ; Simple example of double-buffered animation - support@blitzbasic.com
  4. ; ---------------------------------------------------------------------
  5. ; Uncommented version, to show how simple the code really is...
  6.  
  7. Graphics 640, 480
  8. SetBuffer BackBuffer ()
  9.  
  10. player = LoadImage ("rocket.bmp")
  11. MaskImage player, 255, 0, 255
  12.  
  13. Repeat
  14.  
  15.     Cls
  16.     DrawImage player, MouseX (), MouseY ()    ; Draw the image
  17.     Flip
  18.     
  19. Until KeyHit (1)
  20.  
  21. End